home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / DeHQX 2.0.0 / source / MyTypes.unit < prev    next >
Encoding:
Text File  |  1991-08-23  |  1.2 KB  |  51 lines  |  [TEXT/PJMM]
  1. unit MyTypes;
  2. { DeHQX v2.0.0 © Peter Lewis, Aug 1991 }
  3.  
  4. interface
  5.  
  6.     uses
  7.         Types;
  8.  
  9.     const
  10.         sysWDProcID = $4552494B;        { 'ERIK' }
  11.         myErr = -5;
  12.         myErr2 = -6;
  13.         cancelErr = myErr2;
  14.         myErr3 = -7;
  15.         noType = 0;                            { should be OSType(0) !!! }
  16.  
  17.     const                                    { Low Memory Globals }
  18.         curApNameA = $910;
  19.         ticksA = $16A;
  20.         SFSaveDiskA = $214;
  21.         CurDirStoreA = $398;
  22.  
  23.     const                                    { Other OS constants, probably declared somewhere now }
  24.         kSysEnvironsVersion = 1;
  25.         kOSEvent = app4Evt;                {event used by MultiFinder}
  26.         kSuspendResumeMessage = 1;    {high byte of suspend/resume event message}
  27.         kResumeMask = 1;                    {bit of message field for resume vs. suspend}
  28.         kMouseMovedMessage = $FA;    {high byte of mouse-moved event message}
  29.         kNoEvents = 0;                        {no events mask}
  30.  
  31.     const                                    { Constants that aren't normally defined }
  32.         drawCntlMsg = 0;
  33.         testCntlMsg = 1;
  34.         calcCRgnsMsg = 2;
  35.         initCntlMsg = 3;
  36.         dispCntlMsg = 4;
  37.         posCntlMsg = 5;
  38.         thumbCntlMsg = 6;
  39.         dragCntlMsg = 7;
  40.         autoTrackMsg = 8;
  41.  
  42.     type
  43.         integerP = ^integer;
  44.         integerH = ^integerP;
  45.         longIntP = ^longInt;
  46.         longIntH = ^longIntP;
  47.         forkType = (no_fork, data_fork, rsrc_fork, both_fork);
  48.  
  49. implementation
  50.  
  51. end.